home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / disk / makecd1.2 / registerscript < prev    next >
AmigaDOS Script File  |  1996-11-09  |  4KB  |  136 lines
  1. .KEY language/A
  2. .BRA {
  3. .KET }
  4.  
  5. ; $Id: registerscript 1.1 1996/11/09 16:48:38 angela Exp $
  6.  
  7. SET makecdlang {language}
  8.  
  9. ; *** This is the filename under which the registration form is saved
  10. SET makecdregfilename "Registerform"
  11. SET makecdnoregform "Sorry, could not find registration form for MakeCD."
  12. SET makecdregreq "Registration Request"
  13. SET makecdshallprint "Do you want the registration form being printed now?"
  14. SET makecdshalldelete "Do you want the registration form in T: being deleted now?"
  15. SET makecdansok "OK"
  16. SET makecdansyes "Yes"
  17. SET makecdansno "No"
  18.  
  19. IF $makecdlang EQ "deutsch"
  20.   SET makecdregfilename "Registrierformular"
  21.   SET makecdnoregform "Leider konnte kein Registrierformular für MakeCD gefunden werden."
  22.   SET makecdregreq "Registrations-Dialogfenster"
  23.   SET makecdshallprint "Soll das Registrierformular nun gedruckt werden?"
  24.   SET makecdshalldelete "Soll das Registrierformular nun aus T: gelöscht werden?"
  25.   SET makecdansok "OK"
  26.   SET makecdansyes "Ja"
  27.   SET makecdansno "Nein"
  28. ENDIF
  29.  
  30. IF $makecdlang EQ "français"
  31.   SET makecdregfilename "FicheD'Enregistrement"
  32.   SET makecdnoregform "Désolé, impossible de trouver le formulaire d'enregistrement pour MakeCD."
  33.   SET makecdregreq "Requête d'enregistrement"
  34.   SET makecdshallprint "Voulez-vous que la fiche d'enregistrement soit imprimée maintenant ?"
  35.   SET makecdshalldelete "Voulez-vous que la fiche d'enregistrement dans T: soit effacée maintenant ?"
  36.   SET makecdansok "OK"
  37.   SET makecdansyes "Oui"
  38.   SET makecdansno "Non"
  39. ENDIF
  40.  
  41. IF $makecdlang EQ "italiano"
  42.   SET makecdregfilename "Moduloregistrazione"
  43.   SET makecdnoregform "Spiacente, non trovo il modulo di registrazione per MakeCD."
  44.   SET makecdregreq "Registrazione"
  45.   SET makecdshallprint "Volete stampare il modulo di registrazione adesso?"
  46.   SET makecdshalldelete "Volete cheil modulo di registrazione venga cancellato da T: adesso?"
  47.   SET makecdansok "OK"
  48.   SET makecdansyes "Si"
  49.   SET makecdansno "No"
  50. ENDIF
  51.  
  52. IF $makecdlang EQ "nederlands"
  53.   SET makecdregfilename "Registratieformulier"
  54.   SET makecdnoregform "Sorry, kon registratieformulier niet vinden voor MakeCD"
  55.   SET makecdregreq "Verzoek tot registratie"
  56.   SET makecdshallprint "Zal ik het registratieformulier nu printen?"
  57.   SET makecdshalldelete "Zal ik het registratieformulier in T: nu wissen?"
  58.   SET makecdansok "Ok"
  59.   SET makecdansyes "Ja"
  60.   SET makecdansno "Nee"
  61. ENDIF
  62.  
  63. IF $makecdlang EQ "norsk"
  64.   SET makecdregfilename "Registrerings-skjema"
  65.   SET makecdnoregform "Beklager, kunne ikke finne registrerings-skjemaet for MakeCD."
  66.   SET makecdregreq "Registrerings-forespørsel"
  67.   SET makecdshallprint "Vil du skrive ut registrerings-skjemaet nå?"
  68.   SET makecdshalldelete "Vil du slette registrerings-skjemaet som ligger i T:?"
  69.   SET makecdansok "OK"
  70.   SET makecdansyes "Ja"
  71.   SET makecdansno "Nei"
  72. ENDIF
  73.  
  74. IF $makecdlang EQ "svenska"
  75.   SET makecdregfilename "Registreringsformulär"
  76.   SET makecdnoregform "Hittar inte registreringsformuläret för MakeCD."
  77.   SET makecdregreq "Registreringsförfrågan"
  78.   SET makecdshallprint "Vill du skriva ut registreringsformuläret nu?"
  79.   SET makecdshalldelete "Vill du radera registreringsformuläret i T: nu?"
  80.   SET makecdansok "Okej"
  81.   SET makecdansyes "Ja"
  82.   SET makecdansno "Nej"
  83. ENDIF
  84.  
  85. IF NOT EXISTS $makecdlang/$makecdregfilename
  86.   SET makecdlang english
  87.   SET makecdregfilename "Registerform"
  88. ENDIF
  89.  
  90. IF NOT EXISTS $makecdlang/$makecdregfilename
  91.   SET makecdlang deutsch
  92.   SET makecdregfilename "Registrierformular"
  93. ENDIF
  94.  
  95. IF EXISTS $makecdlang/$makecdregfilename
  96.   Copy $makecdlang/$makecdregfilename T:Registerform
  97.   IF EXISTS ENV:EDITOR
  98.     $EDITOR T:Registerform
  99.   ELSE
  100.     Ed T:Registerform
  101.   ENDIF
  102. ELSE
  103.   IF EXISTS C:RequestChoice
  104.     RequestChoice >NIL: "$makecdregreq" "$makecdnoregform" "$makecdansok"
  105.   ELSE
  106.     Echo >CON:0/0/640/100/Error "$makecdnoregform"
  107.   ENDIF
  108.   SKIP unsetvars
  109. ENDIF
  110.  
  111. IF EXISTS C:RequestChoice
  112.   RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshallprint" "$makecdansyes" "$makecdansno"
  113.   IF $makecdANSWER EQ 1
  114.     Type T:Registerform TO PRT:
  115.   ENDIF
  116.   RequestChoice >ENV:makecdANSWER "$makecdregreq" "$makecdshalldelete" "$makecdansyes" "$makecdansno"
  117.   IF $makecdANSWER EQ 1
  118.     Delete QUIET T:Registerform
  119.   ENDIF
  120.   Delete QUIET ENV:makecdANSWER
  121. ENDIF
  122.  
  123. LAB unsetvars
  124.  
  125. UNSET makecdlang
  126. UNSET makecdregfilename
  127. UNSET makecdnoregform
  128. UNSET makecdregreq
  129. UNSET makecdshallprint
  130. UNSET makecdshalldelete
  131. UNSET makecdansok
  132. UNSET makecdansyes
  133. UNSET makecdansno
  134.  
  135. LAB end
  136.